home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 December
/
Ahoy_Magazine_85-12_1985_Double_L.d64
/
jewel quest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
170 lines
10 rem ***jewel quest*** by bob blackmer
20 printchr$(147)
30 poke52,48:poke56,48:clr
40 def fnrx(x)=int(x/256)
50 def fntx(z)=x-sx*256
60 gosub680:gosub590:gosub1590
70 poke56334,peek(56334)and254:poke1,peek(1)and251
80 fori=0to63:forj=0to7
90 poke14336+i*8+j,peek(53248+i*8+j):nextj,i
100 poke1,peek(1)or4:poke56334,peek(56334)or1
110 print"[158]by the way, good luck!"
120 poke53272,(peek(53272)and240)+14:poke53270,peek(53270)or16
130 ck=0:forch=59to62:forby=0to7:readn:ck=ck+n
140 poke14336+(8*ch)+by,n:nextby,ch:ifck<>3205thenprint"error-lines 1160-1190":end
150 gosub710
160 poke53281,0:poke53280,0:poke53282,2:poke53283,5:print"[150]":print"[147]"
170 forl=1to4:print:next:print" <========> <========>"
180 forl=1to5:print:next:print" <==================>"
190 forl=1to5:print:next:print" <========> <========>"
200 forl=1to4:print:next:print" <==>"
210 print"<===> energy 99[150]<========> level [150]<====":poke2023,62
220 y1=170:x=176:pokev+2,jx(1):pokev+3,jy(1):poke2041,198:p=193:j=1:lv=1
230 c=54272:f=49241:poke700,0:poke701,39:poke702,57:poke703,58:poke704,0
240 poke2016,lv+48:poke2016+c,5:pokev+1,y1:pokev+21,2:poke1997,57:poke1998,57
250 print""tab(7)"press fire button to start":pokev+21,3
260 fr=peek(56320)and16:iffr=16then250
270 print""tab(7)" ":sys49437:pokev+30,0
280 sys49152:ifpeek(679)thenx=x+4:poke679,0:p=193
290 ifpeek(680)thenx=x-4:poke680,0:p=197
300 if(x<25)or(x>340)thenx=25
310 if(peek(v+1)<50)or(peek(v+1)>240)thenpokev+1,50
320 poke2040,p:sx=fnrx(x):lx=fntx(z):pokev,lx:pokev+16,sx:iflv>7thensysf
330 ifpeek(v+31)<>2thensys49348:ifpeek(704)then370
340 ifpeek(v+30)=3thengosub450
350 getan$:ifan$="[133]"thengosub500
360 goto280
370 poke198,0:poke1998,48:print""tab(15)"game over"
380 printtab(14)"play again?":printtab(17)"(y/n)"
390 wait198,1:getan$
400 ifan$="y"thengoto430
410 ifan$="n"thenpoke828,0:sys828
420 goto390
430 print""tab(15)" ":pokev+21,0
440 printtab(14)" ":printtab(17)" ":goto220
450 sysf:pokes+1,9:pokes+4,17:j=j+1:ifj=11thenj=1:gosub480
460 pokev+21,1:pokev+2,jx(j):pokev+3,jy(j):pokev+21,3:pokev+30,0
470 forl=1to10:next:pokes+4,129:return
480 lv=lv+1:iflv>9then530
490 poke2016,lv+48:return
500 print""tab(7)"relax-press f3 to continue"
510 poke198,0:wait198,1:getp$:ifp$<>"[134]"then510
520 print""tab(7)" ":sys49437:return
530 pokes+4,17:fork=1to10
540 print"c o n g r a t u l a t i o n s ! !"
550 forl=200to20step-10:sysf:pokes+1,l:nextl:pokes+4,33
560 print"c o n g r a t u l a t i o n s ! !":forl=150to170:pokes+1,l
570 sysf:next:nextk:pokes+4,0:print"press any key to play again"
580 poke198,0:wait198,1:goto160
590 v=53248:s=54272:ck=0:forl=12288to12350:reada:ck=ck+a:pokel,a:next
600 forl=12352to12414:reada:ck=ck+a:pokel,a:next
610 forl=12544to12606:reada:ck=ck+a:pokel,a:next
620 forl=12608to12670:reada:ck=ck+a:pokel,a:next
630 forl=12672to12734:reada:ck=ck+a:pokel,a:next
640 ifck<>13468thenprint"error in lines 760-1150":end
650 pokev+28,3:pokev+37,15:pokev+38,7:pokev+39,12:pokev+40,1
660 forl=stos+24:pokel,0:next:pokes+1,200:pokes+5,16:pokes+6,64
670 pokes+18,129:pokes+14,5:pokes+24,15:return
680 ck=0:forl=1to10:readjx(l),jy(l):ck=ck+jx(l)+jy(l):next
690 ifck<>3286thenprint"error in lines 740-750":end
700 return
710 ml=49152:ck=0:forl=mltoml+309:reada:pokel,a:ck=ck+a:next
720 ifck<>37116thenprint"error in lines 1200-1580":end
730 return
740 data 92,88,255,88,175,136,92,185,255,185,175,224,113,136,234,136
750 data 113,185,234,185
760 data 34,34,32,162,162,34,170,170
770 data 186,8,32,32,0,128,0,2
780 data 20,0,8,40,0,32,40,0
790 data 128,80,0,32,80,0,8,80
800 data 0,0,112,0,2,84,0,0
810 data 85,0,0,169,64,0,33,64
820 data 0,137,64,2,2,120,8,0
830 data 156,32,0,32,168,0,42
840 data 34,34,32,136,136,136,34,32
850 data 32,0,32,0,0,128,0,2
860 data 20,0,8,40,0,32,40,0
870 data 128,80,0,32,80,0,8,80
880 data 0,0,112,0,2,84,0,0
890 data 85,0,0,169,64,0,33,64
900 data 0,137,64,2,2,120,8,0
910 data 156,32,0,32,168,0,42
920 data 34,34,32,162,162,34,170,170
930 data 186,8,32,32,0,8,0,1
940 data 66,0,0,160,128,0,160,32
950 data 0,80,8,0,80,32,0,80
960 data 128,0,112,0,1,82,0,5
970 data 80,0,20,168,0,20,32,0
980 data 20,136,0,242,2,0,232,0
990 data 128,32,0,32,168,0,42
1000 data 8,136,136,162,34,34,72,136
1010 data 138,0,32,0,0,8,0,1
1020 data 66,0,0,160,128,0,160,32
1030 data 0,80,8,0,80,32,0,80
1040 data 128,0,112,0,1,82,0,5
1050 data 80,0,20,168,0,20,32,0
1060 data 20,136,0,242,2,0,232,0
1070 data 128,32,0,32,168,0,42
1080 data 0,32,0,0,184,0,2,254
1090 data 0,0,184,0,0,32,0,0
1100 data 0,0,0,0,0,0,0,0
1110 data 0,0,0,0,0,0,0,0
1120 data 0,0,0,0,0,0,0,0
1130 data 0,0,0,0,0,0,0,0
1140 data 0,0,0,0,0,0,0,0
1150 data 0,0,0,0,0,0,0
1160 data 40,20,150,85,150,150,20,40
1170 data 2,10,42,170,85,85,85,85
1180 data 170,170,170,170,85,85,85,85
1190 data 170,169,165,149,85,84,80,64
1200 data 169,129,141,4,212,173,0,220
1210 data 41,8,208,10,169,1,141,167
1220 data 2,169,192,141,248,7,173,0
1230 data 220,41,4,208,10,169,1,141
1240 data 168,2,169,196,141,248,7,173
1250 data 0,220,41,16,208,9,206,1
1260 data 208,206,1,208,76,58,192,238
1270 data 1,208,169,0,141,0,220,173
1280 data 27,212,141,40,208,174,248,7
1290 data 224,194,16,8,169,192,141,248
1300 data 7,76,89,192,169,196,141,248
1310 data 7,169,59,174,188,2,172,189
1320 data 2,238,188,2,206,189,2,157
1330 data 0,4,157,224,5,153,240,4
1340 data 153,32,7,169,32,157,0,4
1350 data 157,224,5,153,240,4,153,32
1360 data 7,174,188,2,172,189,2,169
1370 data 59,157,0,4,157,224,5,153
1380 data 240,4,153,32,7,162,180,202
1390 data 142,1,212,224,0,208,248,173
1400 data 189,2,201,0,208,29,169,32
1410 data 141,39,4,141,7,6,141,240
1420 data 4,141,32,7,169,0,141,188
1430 data 2,169,39,141,189,2,169,0
1440 data 141,4,212,96,169,17,141,11
1450 data 212,162,220,160,15,142,8,212
1460 data 140,39,208,136,208,250,202,224
1470 data 200,208,240,169,12,141,39,208
1480 data 169,0,141,31,208,141,11,212
1490 data 206,191,2,173,191,2,201,47
1500 data 208,39,169,57,141,191,2,141
1510 data 206,7,206,190,2,173,190,2
1520 data 201,47,208,14,169,48,141,205
1530 data 7,141,206,7,169,1,141,192
1540 data 2,96,173,190,2,141,205,7
1550 data 96,141,206,7,96,169,10,162
1560 data 0,160,39,157,0,216,157,224
1570 data 217,153,240,216,153,32,219,232
1580 data 136,192,0,208,238,96
1590 poke53280,0:poke53281,11:print"[147]"tab(11)"[158] jewel quest "
1600 printtab(17)"by":printtab(12)"bob blackmer"
1610 print"[158][159] you must gather the ten jewels on each of nine levels.";
1620 print" you accomplish this by flying a gyrocopter in the jewel room."
1630 print"to fly use the joystick in port #2 and push left or right.";
1640 print" to fly up push the fire button. to get a jewel just touch it ";
1650 print"with your landing pods. dont touch the velvet on which they sit ";
1660 print"or the robot guards which patrol for they sap your energy."
1670 printtab(4)"[158]press f1 to pause during game"
1680 printtab(8)"press any key to begin":poke198,0
1690 wait198,1:print"[147]just a moment...":return